      subroutine ffunction(a,b)
        a=3.0
        b=4.0
      end
